初步认识

excel前期设置

  1. 开启开发工具
  2. 启用所有的宏

进入VBA编写界面

保存代码

另存为 启用宏的工作簿(后缀名xlsm)

代码框架

sub 代码名称()

录制宏

机器录制

开发工具-录制宏-停止录制

编辑格式

编辑界面的字体、字号的调整

  1. 进入VB编辑界面
  2. 点击工具-选项-编辑器格式

注释

代码缩进

换行

  1. 需换行位置代码后有空格
  2. 空格后面添加下划线_
  3. 在下划线后面按回车

F8逐行运行

变量

变量的定义

变量是一个自定义名称的储存单位,变量是一个载体

变量的数据类型

数据类型 储存控件 范围 简写
byte 1个字节 0到255
integer 2个字节 -32768到32767 %
long 4个字节 -2147483648到2147483647 &
string 10个字节加字符串长度 0到大约20亿 $
date 8个字节 100年1月1日到9999年12月31日
variant 16个字节或22个字节

声明变量的数据类型

对象

常见对象

  1. workbook("工作簿名")
  2. activeworkbook 活动工作簿
  3. thisworkbook '代码所在工作簿
    image.png

image.png

赋值对象时,在前面加set
image.png



  1. range(单元格地址) |一个单元格,一行,一列,一个区域
    image.png

image.png

image.png

image.png

  1. cells(行,列)
    image.png

  2. [a1]单元格简写

  3. activecell 活动单元格
    image.png

  4. selection 选择的区域

属性

定义

属性是一个对象的特征,是一个名词.任何对象都有属性,可以通过下拉菜单查看

表达方式

方法

定义

方法指对象所能执行的动作,它是一个动词

表达方式

image.png

if语句

不等于空 <>""
image.png

image.png

image.png

if嵌套

image.png

for 循环语句

image.png

image.png

for 循环的步长

image.png

for循环的嵌套

image.png

image.png

image.png

动态数据区域

end

image.png

image.png

row和rows

image.png

image.png

image.png

end改进

image.png

usedrang

image.png

image.png

CurrentRegion

image.png
需将不需要内容用空行和空列间隔
image.png

for each .......next

image.png

image.png

image.png

image.png
选择的区域
image.png
使用区域
image.png

案例

image.png

image.png

image.png
新建靠后
image.png

offset偏移

image.png

image.png

resize属性

image.png
resize不能为负数
image.png

exit结束语句

image.png

image.png

image.png

image.png
案例
image.png
改进
image.png

do loop无限循环语句

image.png

image.png
案例
image.png
当代码运行错误时忽略,继续向下运行
image.png

goto 跳转语句

image.png
then后面需要运行两种动作,动作之间添加 " :"
Err. Number代表错误编号(编号会储存)
Err. Clear 清除错误编号
image.png

有前提条件结束的do循环

image.png

image.png

image.png
until和while还可以写在loop 后面

使用工作表函数

image.png
Application.WorksheetFunction.AverageIf调用平均数函数
image.png
WorksheetFunction. CountIfs调用计数
Application可省略

随机数

image.png

image.png

随机数应用

image.png

image.png

凑数案例

image.png

排序

image.png
例子
image.png

find查询
image.png